home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / massmail.zip / MASSMAIL.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-06-05  |  4KB  |  258 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  3792 bytes  03/09/122  08:19:16am
  3. '! Code Segment Size  :2657 bytes
  4. '! Data Segment Size  :5992 bytes
  5. '! String Segment Size:1135 bytes
  6. '! Compiled with WCC version 4.12
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 98) As Byte
  12.         s174 As String*70
  13.       End Type
  14.  
  15.       Dim l4463 As Long
  16.       Dim l4467 As Long
  17.       Dim i4471 As Integer
  18.       Dim s4473 As String*30
  19.       Dim l4503 As Long
  20.       Dim s4507 As String*7
  21.       Dim l4514 As Long
  22.       Dim s4518 As String*25
  23.       Dim l4543 As Long
  24.       Dim l4547 As Long
  25.       Dim i4551 As Integer
  26.       Dim mh4553 As MessageHeader
  27.       Dim s4873 As String
  28.       Dim s5118(0 To 20) As String*10
  29.       Dim i5328 As Integer
  30.       Dim i5330 As Integer
  31.       Dim i5332 As Integer
  32.       Dim i5334 As Integer
  33.       Dim s5336 As String
  34.       Dim ur5340 As UserRecord
  35.       Dim i5990 As Integer
  36.  
  37.       Dim l65500_ As Long
  38.       Dim i65504_ As Integer
  39.       Dim l65506_ As Long
  40.       Dim i65510_ As Integer
  41.       Dim l65512_ As Long
  42.       Dim i65516_ As Integer
  43.       Dim l65518_ As Long
  44.       Dim i65522_ As Integer
  45.       Dim l65524_ As Long
  46.       Dim i65528_ As Integer
  47.       Dim l65530_ As Long
  48.       Dim i65534_ As Integer
  49.  
  50.       l4467 = 8985
  51.       If Exists(ProgPath + "MassMail.key") Then
  52.         Open ProgPath + "MassMail.key" For Input As 1
  53.         Input #1, l4463
  54.         Close 1
  55.       Else
  56.   111   l4463 = 0
  57.         GoTo 123
  58.       End If
  59.   123 s4473 = UCase(MakeWild.BBSName)
  60.       s4473 = Trim(s4473)
  61.       l4503 = 0
  62.   191 For i4471 = 1 To Len(s4473) Step 1
  63.         l4503 = l4503 + Asc(Mid(s4473, i4471, 1))
  64.       Next
  65.   295 s4507 = UCase(MakeWild.RegString)
  66.       s4507 = Trim(s4507)
  67.       l4514 = 0
  68.   364 For i4471 = 1 To Len(s4507) Step 1
  69.         l4514 = l4514 + Asc(Mid(s4507, i4471, 1))
  70.       Next
  71.   468 s4518 = UCase(MakeWild.SysopName)
  72.       s4518 = Trim(s4518)
  73.       l4543 = 0
  74.   536 For i4471 = 1 To Len(s4518) Step 1
  75.         l4543 = l4543 + Asc(Mid(s4518, i4471, 1))
  76.       Next
  77.   640 l4547 = l4503 + l4514 + l4543
  78.       l4547 = l4547 * 7
  79.       l4547 = l4547 * l4467
  80.       l4547 = l4547 + l4467
  81.       If l4547 = l4463 Then
  82.         i4551 = - 1
  83.       Else
  84.   745   i4551 = 0
  85.       End If
  86.   751 i5330 = 0
  87.       If Exists(ProgPath + "massmail.cfg") Then
  88.         Open ProgPath + "massmail.cfg" For Input As 1
  89.         Input #1, i5328
  90.   809   Do While Not EOF(1)
  91.           i5330 = i5330 + 1
  92.           Input #1, s5118(i5330)
  93.         Loop
  94.   875 Else
  95.   881   i5328 = 0
  96.       End If
  97.   887 Close 1
  98.       Do
  99.   892   Cls 
  100.         Locate 1, 34
  101.         Print "@01@╔══════════╗"
  102.         Locate 2, 34
  103.         Print "@01@║ @0F@MassMail @01@║"
  104.         Locate 3, 34
  105.         Print "@01@╚══════════╝"
  106.         Locate 5, 28
  107.         Print "@0B@Written by: Dean Brooks"
  108.         Locate 9, 32
  109.         Print "@0E@Mail message to:"
  110.         Locate 16, 33
  111.         Print "@09@Copyright 1996"
  112.         Locate 18, 28
  113.         Print "@09@Hidden Paradise Software"
  114.         Locate 20, 23
  115.         Print "@09@Hidden Paradise BBS (716)-345-9800"
  116.         Locate 11, 17
  117.         s4873 = InputMask("@02@[@0F@A@02@]@0B@ll users / @02@[@0F@S@02@]@0B@ecurity Profile / @02@[@0F@Q@02@]@0B@uit: @0E@", "X", "", 1213417543)
  118.         s4873 = UCase(s4873)
  119.         If s4873 = "A" Then
  120.           GoTo 1588
  121.         End If
  122.  1091   If s4873 = "S" Then
  123.           GoTo 1172
  124.         End If
  125.  1114   If s4873 = "Q" Then
  126.           GoTo 2045
  127.         End If
  128.  1137   Cls 
  129.         Locate 12, 29
  130.         Print "@BELL@@8C@NOT A VALID SELECTION@0E@"
  131.         Locate 20, 1
  132.         WaitEnter 
  133.       Loop
  134.  1172 Cls 
  135.       Locate 1, 1
  136.       Print "@0E@Which Security Profile would you like?"
  137.       Print
  138.  1217 For i5332 = 1 To i5330 Step 1
  139.         Print "@02@[@0F@"; i5332; "@02@] @0B@"; s5118(i5332)
  140.       Next
  141.  1345 Print
  142.       Print "Select from 1 to "; i5330; " (0 to quit):";
  143.       i5334 = InputNumber(" ", 0, i5330)
  144.       If i5334 = 0 Then
  145.       Else
  146.  1409   If Exists(ProgPath + "massmail.usr") Then
  147.           Del ProgPath + "massmail.usr"
  148.         End If
  149.  1441   Open ProgPath + "massmail.usr" For Append As 2
  150.         s5336 = ""
  151.         GetUser(ur5340, s5336)
  152.         Do
  153.  1486     If UCase(ur5340.SecLevel) = UCase(s5118(i5334)) Then
  154.             Print #2, UCase(ur5340.Name)
  155.           End If
  156.  1558   Loop Until Not GetNextUser(ur5340, 1213417543)
  157.         Close 2
  158.         GoTo 1713
  159.  1588   If Exists(ProgPath + "massmail.usr") Then
  160.           Del ProgPath + "massmail.usr"
  161.         End If
  162.  1620   Open ProgPath + "massmail.usr" For Append As 2
  163.         s5336 = ""
  164.         GetUser(ur5340, s5336)
  165.         Do
  166.  1665     Print #2, UCase(ur5340.Name)
  167.         Loop Until Not GetNextUser(ur5340, 1213417543)
  168.         Close 2
  169.         GoTo 1713
  170.  1713   mh4553.From = MakeWild.SysopName
  171.         Cls 
  172.         Locate 10, 1
  173.         mh4553.Subject = InputMask("Subject (Enter to quit): ", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  174.         If mh4553.Subject = "" Then
  175.         Else
  176.  1805     If Exists(ProgPath + "massmail.msg") Then
  177.             Del ProgPath + "massmail.msg"
  178.           End If
  179.  1837     EditMessage(mh4553, ProgPath + "massmail.msg", 1213417543)
  180.           If Exists(ProgPath + "massmail.msg") Then
  181.             GoTo 1896
  182.           Else
  183.  1890       GoTo 2045
  184.           End If
  185.  1896     If Exists(ProgPath + "massmail.usr") Then
  186.             Open ProgPath + "massmail.usr" For Input As 3
  187.  1940       Do While Not EOF(3)
  188.               Input #3, mh4553.To
  189.               AddMessage(mh4553, ProgPath + "massmail.msg", "", i5328)
  190.             Loop
  191.  1999       Close 3
  192.           Else
  193.  2010       GoTo 2045
  194.           End If
  195.  2016     Cls 
  196.           Locate 10, 27
  197.           Print "@BELL@@8B@<<<< Message Written >>>>@0E@"
  198.           Locate 20, 1
  199.           WaitEnter 
  200.         End If
  201.       End If
  202.  2045 If Exists(ProgPath + "massmail.msg") Then
  203.         Del ProgPath + "massmail.msg"
  204.       End If
  205.  2077 If Exists(ProgPath + "massmail.usr") Then
  206.         Del ProgPath + "massmail.usr"
  207.       End If
  208.  2109 Cls 
  209.       Locate 6, 25
  210.       Print "@0F@Thank you for using MassMail!"
  211.       Locate 8, 28
  212.       Print "@0A@Written by: Dean Brooks"
  213.       Locate 10, 28
  214.       Print "@09@Hidden Paradise Software"
  215.       Locate 12, 18
  216.       Print "@0E@Support: Hidden Paradise BBS @ 716-345-9800"
  217.       If i4551 = 0 Then
  218.         Print "@NOPAUSE@"
  219.         Locate 18, 17
  220.         Print "@0F@This delay will be removed when you register!"
  221.         Color 3, 0
  222.         Locate 15, 29
  223.         Print "["
  224.         Color 3, 0
  225.         Locate 15, 51
  226.         Print "]"
  227.         Color 11, 0
  228.         Locate 15, 40
  229.         Print Chr(254)
  230.  2302   For i5990 = 1 To 10 Step 1
  231.           Color 11, 0
  232.           Locate 15, 40 - i5990
  233.           Print Chr(254)
  234.           Locate 15, 40 + i5990
  235.           Print Chr(254)
  236.           Delay 0.5
  237.         Next
  238.  2435
  239.  2458   For i5990 = 10 To 1 Step - 1
  240.           Color 11, 0
  241.           Locate 15, 40 - i5990
  242.           Print " "
  243.           Locate 15, 40 + i5990
  244.           Print " "
  245.           Delay 0.25
  246.         Next
  247.  2591   Locate 15, 40
  248.         Print " "
  249.         Reset 
  250.         End 
  251.       Else
  252.  2617   Locate 15, 26
  253.         Print "@1E@ Thank You for REGISTERING! @0F@"
  254.         Delay 2
  255.         Reset 
  256.       End If
  257.  2644 End 
  258.